home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / bibleqz.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  3.5 KB  |  107 lines
  1. 10  REM CONVERTED FROM TRS/80 BY ANONYMOUS DONOR
  2. 20  'DOWNLOADED FROM COMPUTERS FOR CHRIST OF SAN JOSE (408)997-2790
  3. 30  CLS
  4. 40  PRINT"BIBLE QUIZ"
  5. 50  PRINT
  6. 62  PRINT "IF YOU NEED OPERATING INSTRUCTIONS ENTER ... Y"
  7. 63  PRINT "TO PLAY THE GAME WITHOUT INSTRUCTIONS ---> PRESS ENTER"
  8. 64  PRINT "TO END THE GAME ENTER ... X"
  9. 65  PRINT " "
  10. 66  PRINT "    * * * * * ALL RESPONSES MUST BE IN UPPER-CASE, THEREFORE * * * *
  11. 67  PRINT " BEFORE ENTERING YOUR RESPONSE OR BEGINNING GAME - DEPRESS CAPS/LOCK KEY "
  12. 68  PRINT " "
  13. 70  INPUT I$
  14. 80  IF LEFT$(I$, 1)="Y" THEN 120
  15. 90  IF I$="X"OR I$="X" THEN END
  16. 100  CLS
  17. 110  GOTO 240
  18. 120  CLS
  19. 130  PRINT"      THIS GAME IS A QUIZ WHICH TESTS "
  20. 140  PRINT "YOUR KNOWLEDGE OF BIBLICAL EVENTS, PLACES, "
  21. 150  PRINT "AND PERSONS."
  22. 160  PRINT"      I WILL ASK YOU A QUESTION AND THEN WAIT "
  23. 170  PRINT "FOR YOUR ANSWER.  IF YOUR ANSWER IS CORRECT,"
  24. 180  PRINT "I WILL PROCEED TO THE NEXT QUESTION.  IF YOUR "
  25. 190  PRINT "ANSWER IS INCORRECT, I WILL GIVE YOU THE "
  26. 200  PRINT "CORRECT ANSWER AND THEN PROCEED TO THE "
  27. 210  PRINT "NEXT QUESTION."
  28. 220  PRINT"      ALL ANSWERS ARE ONE WORD, AND MUST BE"
  29. 230  PRINT "CORRECTLY SPELLED."
  30. 240  PRINT "THERE ARE 25 QUESTIONS."
  31. 250  PRINT
  32. 260  PRINT "HOW MANY QUESTIONS DO YOU WISH TO TRY";CHR$(31);
  33. 270  INPUT N
  34. 280  IF N>25 OR N<1 THEN 240
  35. 290  CLS
  36. 300  DIM S(25)
  37. 310  C=0
  38. 320  N1=0
  39. 330  PRINT CHR$(28);
  40. 340  RESTORE
  41. 350  IF C=N THEN 570
  42. 360  C=C+1
  43. 370  PRINT
  44. 380  PRINT "QUESTION #";C
  45. 390  PRINT "-------------";CHR$(31)
  46. 400  PRINT
  47. 410  RANDOMIZE N
  48. 420  X=INT( RND * 25 )
  49. 430  IF S(X)=1 THEN 420
  50. 440  S(X)=1
  51. 450  FOR Q=1 TO X
  52. 460  READ Q$, A$, V$
  53. 470  NEXT Q
  54. 480  PRINT Q$;
  55. 490  INPUT R$
  56. 500  IF R$=A$ THEN 540
  57. 510  PRINT "INCORRECT ANSWER."
  58. 520  PRINT "THE CORRECT ANSWER IS ";A$;". ";V$
  59. 530  GOTO 980
  60. 540  PRINT "CORRECT ANSWER -- VERY GOOD! ";V$
  61. 550  N1=N1+1
  62. 560  GOTO 980
  63. 570  PRINT"OUT OF";N;"QUESTIONS YOU ANSWERED";N1;"CORRECTLY."
  64. 580  P=INT((N1/N)*100+0.5)
  65. 590  PRINT "YOUR PERCENTAGE OF CORRECT ANSWERS IS";P;; CHR$(8);"%"
  66. 600  DATA "WHO SET FIRE TO THREE HUNDRED FOXES TAILS","SAMSON"
  67. 610  DATA "1 JUDGES 15:4,5"
  68. 620  DATA "WHAT HEBREW SERVED A QUICK LUNCH UNDER A TREE"
  69. 630  DATA "ABRAHAM"," GENESIS 18:6-8"
  70. 640  DATA "WHAT HUNGRY MAN CURSED A FRUITLESS FIG TREE","JESUS"
  71. 650  DATA " MARK 11:12-14"
  72. 660  DATA "WHO KILLED HIS BROTHER FOR HUMBLING HIS SISTER"
  73. 670  DATA "ABSALOM","2 SAM. 13"
  74. 680  DATA "WHO HAD THREE HUNDRED CONCUBINES","SOLOMON","1 KINGS 11:1-3"
  75. 690  DATA "WHAT BOY HAD A VARIEGATED COAT","JOSEPH"," GEN. 37:3"
  76. 700  DATA "WHO HAD A SEAMLESS COAT","JESUS"," JOHN 19:23"
  77. 710  DATA "WHO TOOK OFF HIS SHOE TO BIND A CONTRACT","BOAZ","RUTH 4:7-9"
  78. 720  DATA "WHO SLEPT ON AN IRON BEDSTEAD OVER THIRTEEN FEET LONG"
  79. 730  DATA "OG"," DEUT. 3:11"
  80. 740  DATA "WHO WAS THE FIRST CITY-BUILDER","CAIN"," GEN 4:17"
  81. 750  DATA "WHAT PHYSICIAN WAS AN AUTHOR","LUKE"," COL 4:14"
  82. 760  DATA "WHAT SONG-COMPOSER IS CREDITED WITH 1005 SONGS","SOLOMON"
  83. 770  DATA "1 KINGS 4:32"
  84. 780  DATA "WHO WAS THE FIRST PERSON KILLED","ABEL"," GEN. 4:8"
  85. 790  DATA "WHO WAS BURIED IN A CAVE WITH HIS WIFE","ABRAHAM"
  86. 800  DATA " GEN. 25:9-10"
  87. 810  DATA "WHO ACCIDENTALLY HANGED HIMSELF IN A TREE","ABSALOM"
  88. 820  DATA "2 SAM. 18:9"
  89. 830  DATA "WHAT BLIND MAN KILLED THREE THOUSAND AT A RELIGIOUS FEAST"
  90. 840  DATA "SAMSON"," JUDGES 16:23-30"
  91. 850  DATA "WHAT WAS THE NAME OF THE FIRST CITY EVER BUILT"
  92. 860  DATA "ENOCH"," GEN. 4:17"
  93. 870  DATA "WHO WAS A MIGHTY HUNTER","NIMROD"," GEN. 10:9-12"
  94. 880  DATA "WHO DROVE FURIOUSLY","JEHU","2 KINGS 9:20"
  95. 890  DATA "WHO WAS THE FIRST CHRISTIAN MARTYR","STEPHEN"," ACTS 7"
  96. 900  DATA "WHO FELL ASLEEP DURING A LONG SERMON","EUTYCHUS"
  97. 910  DATA " ACTS 20:9"
  98. 920  DATA "WHAT CITY IS CALLED THE CITY OF PALM TREES","JERICHO"
  99. 930  DATA " DEUT. 34:3"
  100. 940  DATA "WHO CLIMBED A TREE TO SEE JESUS","ZACCHAEUS"," LUKE 19:4"
  101. 950  DATA "WHO KILLED GOLIATH","DAVID","1 SAM. 17:49"
  102. 960  DATA "WHO WAS CAST INTO A DEN OF LIONS","DANIEL"," DAN. 6:16"
  103. 970  RUN
  104. 980  PRINT"PRESS ANY KEY TO CONTINUE";
  105. 985  PRINT " ":PRINT " ":
  106. 990  IF INKEY$="" THEN 990 ELSE 330
  107.